home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8509.d64 / demo musik-tool (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  865b  |  27 lines
  1. 0 REM  ********************
  2. 1 REM  *DEMO ZU MUSIK-TOOL*
  3. 2 REM  ********************
  4. 3 :
  5. 4 REM VON R.WENSKI UND M.WERNECKE
  6. 5 :
  7. 6 Z3=-0.01:SCLR
  8. 10 ADSR1,0,0,12,0
  9. 12 ADSR2,0,0,12,0
  10. 14 ADSR3,8,9,0,7
  11. 20 PLAY1,936,33:PLAY2,941,33:FORT=1TO15:VOL T:FORU=0TO200:NEXTU,T
  12. 60 C(0)=936:C(1)=936:C(2)=1114:C(3)=834
  13. 100 READA:IFA=-1THENRESTORE:GOTO100
  14. 110 PLAY3,A,17+2+4 : REM DREIECK + SYNCHRONISATION + RINGMODULATION
  15. 135 Z3=Z3+.5:IFZ3>4THENZ3=.499
  16. 140 PLAY1,C(Z3),33:PLAY2,C(Z3)+5,33
  17. 160 FORI=1TO100:NEXT:SOFF3:GOTO100
  18. 165 DATA0,0,0,0,0,0,0,0,0,0,0,0
  19. 170 DATA14435,14435,12860,14435,17167,16203,15294,14435
  20. 180 DATA12860,14435,12860,14435
  21. 190 DATA21629,21629,19269,21629,28871,25721,22915,21629
  22. 200 DATA30588,28871,30588,28871,30588,28871,30588,28871
  23. 210 DATA34334,30588,28871,27251,25721,24288,22915,21629
  24. 220 DATA17167,17167,19269,17167,19269,17167,16203,16203
  25. 230 DATA18188,18188,17167,17167,21629,21629,21269,21269
  26. 10000 DATA-1
  27.